home *** CD-ROM | disk | FTP | other *** search
/ GBL 1 / GBL 1.iso / menu / gifv.sle < prev    next >
Encoding:
Text File  |  1993-02-17  |  624 b   |  25 lines
  1. ;
  2. ; GIFV.SLE
  3. ; This will use all GIF files on F:\ and it will make all of the pictures
  4. ; that are greater than or equal to 800x600 come in normal. If will make files
  5. ; that are greater than or equal to 640x480 Fade IN/OUT. If will make the
  6. ; rest of the files come in with the BLIND effect.
  7. ;
  8.         change-path F:\*.gif
  9. :loop
  10.         if>=800X600 :do800X600
  11.         if>=640X480 :do640X480
  12.         slide-type-Blind
  13.         GOTO :CONT
  14. :DO800X600
  15.         slide-type-normal
  16.         GOTO :CONT
  17. :DO640X480
  18.         slide-type-Fade
  19.         GOTO :CONT
  20. :cont
  21.         loadnext :exit
  22.         goto :loop
  23. :exit
  24.  
  25.